home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Music / A / Audio Tester.cpt / New Audio Spelling Tester / template / stack_-1.xml < prev    next >
Extensible Markup Language  |  1992-08-12  |  3KB  |  21 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>2</cardCount>
  7.     <cardID>3632</cardID>
  8.     <listID>2160</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on openstackglobal speller,studentName,thesounds,saveMode,thevol,testMode,shifted,timesset userlevel to 2hide msghide menubarput false into shiftedput 0 into timesput the hilite of cd button "Save Scores" into saveModeput the hilite of cd button "Test Mode" into testModeIf testMode then hide cd button "Start Over"else show cd button "Start Over"start using stack "Audio Spelling Tester"put sndlist() into thesoundsif the number of lines of thesounds = 0 thenanswer "There are no sounds in this Audio Spelling Stack."pop cardexit openstackend ifif saveMode thenask "Name?"put it into studentNameopen file "Access Record"repeatread from file "Access Record" for 16384if it is empty then exit repeatend repeatwrite  "Name: " & studentName & return to file "Access Record"write  "Date: " & the date & return to file "Access Record"write  "Time: " & the time & return to file "Access Record"close file "Access Record"end ifstart using stack (cd field "keyboard" of cd 1)set lockscreen to truepalette (cd field "keyboard" of cd 1)if there is a window (cd field "keyboard" of cd 1) then set the loc of window (cd field "keyboard" of cd 1) to 82,183put volume() into thevolset the loc of cd button "dial" of cd 1 to item 1 of the rect of cd button "bar" + 6,¬¨round(item 4 of the rect of cd button "bar" - 5 - thevol * 10.714268)set lockscreen to falseend openstackon closestackglobal thevolget volume(thevol)stop using stack "Audio Spelling Tester"go cd 1put "" into cd field "thecount"put "" into cd field "Answer"put "" into cd field id 8put "" into cd field id 23if there is a window (cd field "keyboard" of cd 1) then close window (cd field "keyboard" of cd 1)end closestackon suspendstackif there is a window (cd field "keyboard" of cd 1) then close window (cd field "keyboard" of cd 1)end suspendstackon resumestackset lockscreen to truepalette (cd field "keyboard" of cd 1)if there is a window (cd field "keyboard" of cd 1) then close window (cd field "keyboard" of cd 1)end resumestack</script>
  17.     <background id="4001" file="background_4001.xml" name="" />
  18.     <card id="3632" file="card_3632.xml" marked="false" name="" owner="4001" />
  19.     <card id="4565" file="card_4565.xml" marked="false" name="" owner="4001" />
  20. </stack>
  21.